home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BORL_TIP / TI1000 / TI1259.ASC < prev    next >
Text File  |  1993-02-10  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Borland Pascal                        NUMBER  :  1259
  9.   VERSION  :  7.0
  10.        OS  :  DOS
  11.      DATE  :  February 10, 1993                        PAGE  :  1/1
  12.  
  13.     TITLE  :  Patch for the STDDLG Unit
  14.  
  15.  
  16.  
  17.  
  18.   When using the TFileDialog object with Borland Pascal 7.0, users
  19.   may find that errors occur when navigating through subdirectories
  20.   using the "..\" symbol in the files listbox.
  21.  
  22.   The problem lies in the STDDLG.PAS file which normally resides in
  23.   the \BP\RTL\TV subdirectory. After opening the file, search on
  24.   the word RelativePath to find the following code:
  25.  
  26.   function RelativePath(var S: PathStr): Boolean;
  27.   begin
  28.     S := LTrim(RTrim(S));
  29.     RelativePath := not (S <> '') and ((S[1] = '\') or (S[2] =
  30.       ':'));
  31.   end;
  32.  
  33.   To resolve the problem, change the fourth line so that it
  34.   looks like this:
  35.  
  36.     RelativePath := not ((S <> '') and ((S[1] = '\') or (S[2] =
  37.       ':')));
  38.  
  39.   When you are done, you can copy your new TPU or TPP file into the
  40.   \BP\UNITS subdirectory.
  41.  
  42.   This problem only appears in Borland Pascal 7.0.  STDDLGS
  43.   shipping with Turbo Pascal 7.0 is correct.
  44.  
  45.   DISCLAIMER: You have the right to use this technical information
  46.   subject to the terms of the No-Nonsense License Statement that
  47.   you received with the Borland product to which this information
  48.   pertains.
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.